home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 September 1 / CD [VMAG950901].bin / theway / contentp.dir / 00133.ls < prev    next >
Encoding:
Text File  |  1995-07-13  |  919 b   |  41 lines
  1. on john2
  2.   puppetSprite(5, 1)
  3.   repeat while (the mouseCast >= 119) and (the mouseCast <= 128) and the mouseUp
  4.     set x to the mouseCast
  5.     if x <> -1 then
  6.       set the castNum of sprite (x - 104) to x - 10
  7.       set the castNum of sprite 5 to x + 681
  8.     end if
  9.     puppetSound("click")
  10.     updateStage()
  11.     repeat while (the mouseCast = x) and (the mouseDown <> 1)
  12.     end repeat
  13.     go(the frame)
  14.   end repeat
  15.   if the mouseCast = 800 then
  16.     teleplay()
  17.   end if
  18.   if the mouseDown then
  19.     if (the mouseCast <= 128) and (the mouseCast >= 120) then
  20.       go("e")
  21.     end if
  22.     if (the mouseCast <= 809) and (the mouseCast >= 801) then
  23.       go("e")
  24.     end if
  25.     if (the mouseCast = 119) and (the castNum of sprite 5 = 800) then
  26.       go("TVs+")
  27.     end if
  28.   end if
  29.   go(the frame)
  30. end
  31.  
  32. on movielistset
  33.   global movielist
  34.   set movielist to list("@:TWTW:01.dir", 1)
  35. end
  36.  
  37. on teleplay
  38.   go("TVs")
  39.   abort()
  40. end
  41.